home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 11 / developer source - volume 11.iso / parad / jun96 / conef104.gif < prev    next >
Graphics Interchange Format  |  1998-02-10  |  7.8 KB  |  514x406  |  4-bit (5 colors)
   ocr: NOISY.FSL-RadioBtn.spushButon method pushButton(uar eventinfo Event) var sndLoop, sndAsync Smallint enduar sndLoop - SND LOOP sndAsync = SND ASYNC if self.value = False then if sndPlaySound("chimes.wau", sndAsync.bitOR(sndLoop)) = FALSE then nessageC"ERRUR: Problem playing waverorm") endif theText = "Stop Sound" else sndPlaySound("chimes.wau", SND ASYNC) theText = "Start Sound" endif endmethod Edit Line: 1 Col: 1